object frREZERV: TfrREZERV
  Left = 192
  Top = 114
  Caption = 'Backup'
  ClientHeight = 510
  ClientWidth = 497
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 367
    Width = 497
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 497
    Height = 254
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 94
      Width = 46
      Height = 13
      Caption = 'Database'
    end
    object Label2: TLabel
      Left = 16
      Top = 138
      Width = 40
      Height = 13
      Caption = 'Copy file'
    end
    object BOpenDatabase: TSpeedButton
      Left = 439
      Top = 114
      Width = 21
      Height = 21
      Hint = #1054#1090#1082#1088#1099#1090#1100' '#1092#1072#1081#1083' '#1073#1072#1079#1099' '#1076#1072#1085#1085#1099#1093
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7700800000000777770000333333307777000B033333330777000BB033333330
        77000BBB0333333307000BBBB000000000000BBBBBBBBB0777000BBBB0000077
        7700700007777770000077777777777700007777777077707000777777770007
        77007777777777777700}
      ParentShowHint = False
      ShowHint = True
      OnClick = BOpenDatabaseClick
    end
    object BOpenBackup: TSpeedButton
      Left = 439
      Top = 157
      Width = 21
      Height = 21
      Hint = #1054#1090#1082#1088#1099#1090#1100' '#1092#1072#1081#1083' '#1082#1086#1087#1080#1080
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7700800000000777770000333333307777000B033333330777000BB033333330
        77000BBB0333333307000BBBB000000000000BBBBBBBBB0777000BBBB0000077
        7700700007777770000077777777777700007777777077707000777777770007
        77007777777777777700}
      ParentShowHint = False
      ShowHint = True
      OnClick = BOpenBackupClick
    end
    object Label3: TLabel
      Left = 16
      Top = 16
      Width = 31
      Height = 13
      Caption = 'Server'
    end
    object LServerName: TLabel
      Left = 128
      Top = 16
      Width = 62
      Height = 13
      Caption = 'Server Name'
      Visible = False
    end
    object Label4: TLabel
      Left = 16
      Top = 69
      Width = 53
      Height = 13
      Caption = 'User Name'
    end
    object Label5: TLabel
      Left = 260
      Top = 68
      Width = 46
      Height = 13
      Caption = 'Password'
    end
    object Label8: TLabel
      Left = 16
      Top = 189
      Width = 67
      Height = 13
      Caption = 'Length (bytes)'
    end
    object LProtocol: TLabel
      Left = 315
      Top = 16
      Width = 39
      Height = 13
      Caption = 'Protocol'
      Visible = False
    end
    object TDatabase: TEdit
      Left = 16
      Top = 114
      Width = 420
      Height = 21
      TabOrder = 0
      OnChange = TDatabaseChange
    end
    object TBackup: TEdit
      Left = 16
      Top = 156
      Width = 420
      Height = 21
      TabOrder = 1
      OnChange = TBackupChange
    end
    object CBServer: TComboBox
      Left = 16
      Top = 32
      Width = 89
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Text = 'Local'
      OnChange = CBServerChange
      Items.Strings = (
        'Local'
        'Remote')
    end
    object CBServerName: TComboBox
      Left = 128
      Top = 32
      Width = 161
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Visible = False
    end
    object TUserName: TEdit
      Left = 128
      Top = 64
      Width = 121
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 4
    end
    object TPassword: TEdit
      Left = 315
      Top = 64
      Width = 121
      Height = 21
      TabOrder = 5
    end
    object TLength2: TEdit
      Left = 95
      Top = 186
      Width = 63
      Height = 21
      ReadOnly = True
      TabOrder = 6
      Text = '2048'
    end
    object UpDown1: TUpDown
      Left = 158
      Top = 186
      Width = 16
      Height = 21
      Associate = TLength2
      Min = 2048
      Max = 10000
      Increment = 1000
      Position = 2048
      TabOrder = 7
      Thousands = False
    end
    object BAddBackup: TButton
      Left = 16
      Top = 221
      Width = 112
      Height = 22
      Caption = 'Add Backup'
      TabOrder = 8
      OnClick = BAddBackupClick
    end
    object CBProtocol: TComboBox
      Left = 315
      Top = 32
      Width = 120
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 9
      Text = 'Local'
      Visible = False
      Items.Strings = (
        'Local'
        'NamedPipe'
        'SPX'
        'TCP')
    end
    object BDeleteBackup: TButton
      Left = 128
      Top = 221
      Width = 112
      Height = 22
      Caption = 'Delete Backup'
      TabOrder = 10
      OnClick = BDeleteBackupClick
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 370
    Width = 497
    Height = 109
    Align = alClient
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Panel2: TPanel
    Left = 0
    Top = 254
    Width = 497
    Height = 113
    Align = alTop
    TabOrder = 2
    object ListBox1: TListBox
      Left = 1
      Top = 1
      Width = 495
      Height = 111
      Align = alClient
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 479
    Width = 497
    Height = 31
    Align = alBottom
    TabOrder = 3
    object BBackup: TButton
      Left = 9
      Top = 6
      Width = 90
      Height = 22
      Caption = 'Backup'
      Enabled = False
      TabOrder = 0
      TabStop = False
      OnClick = BBackupClick
    end
    object BExit: TButton
      Left = 98
      Top = 6
      Width = 90
      Height = 22
      Cancel = True
      Caption = 'Exit'
      TabOrder = 1
      TabStop = False
      OnClick = BExitClick
    end
  end
  object BackupService1: TpFIBBackupService
    Params.Strings = (
      'user_name=WIZARD'
      'password=master')
    LoginPrompt = False
    Verbose = True
    BlockingFactor = 0
    Options = []
    Left = 29
    Top = 274
  end
  object OpenDialogBackup: TOpenDialog
    DefaultExt = 'fbk'
    Filter = 'All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofEnableSizing]
    Title = 'Copy file'
    Left = 126
    Top = 274
  end
  object OpenDialogDatabase: TOpenDialog
    DefaultExt = 'fdb'
    Filter = 'All files (*.*)|*.*'
    Title = 'Database file'
    Left = 240
    Top = 274
  end
  object ErrorHandler1: TpFibErrorHandler
    OnFIBErrorEvent = ErrorHandler1FIBErrorEvent
    Options = [oeException, oeForeignKey, oeLostConnect, oeCheck, oeUniqueViolation]
    Left = 344
    Top = 274
  end
end
